From 17276ed336235871199421f8cdf493f8fbd5d9a4 Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Wed, 31 Mar 1993 23:30:25 +0000 Subject: [PATCH] (etags-tags-completion-table): Use skip-syntax-backward instead of skip-chars-backward. --- lisp/progmodes/etags.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index adca6ad4d7b..b1aae1b2db5 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -854,20 +854,19 @@ See documentation of variable `tags-file-name'." (while (search-forward "\177" nil t) ;; Handle multiple \177's on a line. (save-excursion - (skip-chars-backward "^-A-Za-z0-9_$\n") ;sym syntax? XXX + (skip-syntax-backward "w_") (or (bolp) (intern (buffer-substring (point) (progn - (skip-chars-backward "-A-Za-z0-9_$") + (skip-syntax-backward "w_") ;; ??? New ;; `::' in the middle of a C++ tag. (and (= (preceding-char) ?:) (= (char-after (- (point) 2)) ?:) (progn (backward-char 2) - (skip-chars-backward - "-A-Za-z0-9_$"))) + (skip-syntax-backward "w_"))) (point))) table))))) table)) -- 2.30.2